MacWorld 1999 April/Macworld (1999-04).dmg/Cool Specials/Al Morale Demo/Al's Stuff/D200.DCR/00163_4 Butt.ls

Text File | 1999-02-16 | 497 b | 27 lines

on mouseDown
  global gLSpecial
  puppetSprite(11, 1)
  if the optionDown then
    set the memberNum of sprite 11 to 181
    set gLSpecial to "L500"
  else
    set the memberNum of sprite 11 to 179
    set gLSpecial to EMPTY
  end if
  set the ink of sprite 11 to 0
  updateStage()
  repeat while the stillDown
  end repeat
end

on mouseUp
  global gLSpecial
  puppetSprite(11, 0)
  if gLSpecial <> "L500" then
    PlayLaugh()
  else
    set name to string(gLSpecial)
    go(1, name)
  end if
end